Se non volete che certi indirizzi ip accedano alla vostra pagina...

Se vogliamo bloccare alcuni indirizzi ip dal visitare alcune pagine del nostro sito possiamo usare questo semplice script:

<%


'scrivo gli ip bloccati
Dim arrayIP(2)
arrayIp(0) = "130.100.150.1"
arrayIp(1) = "12.175.0.1"
arrayIp(2) = "205.238.3.468"


'mi ricavo l'ip corrente
IPCorrente = Request.ServerVariables("REMOTE_ADDR")


for i = 0 to ubound(arrayIP)
        ' se trovo l'ip, esco dal ciclo
        if arrayIP(i) = IPCorrente then
                Response.Redirect("AccessoBloccato.asp")
        end if
next

response.write "ok hai il permesso di entrare"

%>

<!--#include virtual="/CacciaIp.asp"-->

<%

response.write "Il tuo ip non può accedere qui!"

%>

Scarica allegato

calcio, visual basic, freeware, senna, foto, cap, pele, ferrari, filmati, meteo, php, macchine sportive, script, automobili, javascript, sorpassi, porsche, scripts, programmazione, natura